home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtbnd53.zip / BNDSRC.ZIP / DEMO09.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-07  |  912b  |  47 lines
  1. unit Demo09;
  2.  
  3. interface
  4.  
  5. uses
  6.   {$IFDEF WIN32} Windows,{$ENDIF} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   CBSystem, StdCtrls, CB_Calc, ExtCtrls, DBCtrls, CBBand, CBDetBan,
  8.   Cb_Types, CBReport, DBTables, DB, Grids, DBGrids, Cb_lab, Cbsubdet,
  9.   CBLabel, Mask;
  10.  
  11. type
  12.   TFBDemo09 = class(TForm)
  13.     Button1: TButton;
  14.     CBReport1: TCBReport;
  15.     Table1: TTable;
  16.     DataSource1: TDataSource;
  17.     CBLabelBand1: TCBLabelBand;
  18.     Label1: TLabel;
  19.     DBText1: TDBText;
  20.     DBText2: TDBText;
  21.     DBText4: TDBText;
  22.     DBText5: TDBText;
  23.     Shape1: TShape;
  24.     Label2: TLabel;
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     Acct: Real;
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   FBDemo09: TFBDemo09;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39.  
  40. procedure TFBDemo09.Button1Click(Sender: TObject);
  41. begin
  42. Acct := 0;
  43. CBReport1.Execute;
  44. end;
  45.  
  46. end.
  47.